home *** CD-ROM | disk | FTP | other *** search
- 10 poke systab+24,1 : ' Let's not see window...
- 20 clearw 2 : ' while we're clearing it
- 30 poke systab+24,0
- 40 title$ = "ATARI CENTRAL ST ONLY USERS GROUP (602) 881-O539"
- 50 gosub newtitle
- 70 GOTO 200
- 80 newtitle: ' New title for OUTPUT window
- 90 poke systab+24,1 : ' Don't need to see this...
- 100 a# = gb : ' Fetch globals address
- 110 gintin = peek(a#+8) : ' AES int_in array
- 120 poke gintin+0,peek(systab+8) : ' OUTPUT window handle
- 130 poke gintin+2,2 : ' we're changing it's name
- 140 s# = gintin+4 : ' DBL address for long poke
- 150 title$ = title$ + chr$(0) : ' assure zero terminator
- 160 poke s#,varptr(title$) : ' title of new window
- 170 gemsys(105) : ' wind_set AES call
- 180 poke systab+24,0 : ' Turn things back on
- 190 return
- 200 REM ADDRESS LABELER BY JOHN BUCKNER-PUBLIC DOMAIN-1986
- 210 LPRINT CHR$ (27);CHR$ (69);CHR$ (27);CHR$ (71)
- 220 CLOSEW 0:CLOSEW 1:CLOSEW 3:FULLW 2:CLEARW 2:WIDTH 76
- 230 GOTOXY 22,7:PRINT "RETURN ADDRESS LABELER"
- 240 GOTOXY 25,8:PRINT "BY JOHN BUCKNER"
- 250 GOTOXY 14,10:PRINT "FROM ATARI CENTRAL-ST ONLY USERS GROUP"
- 260 GOTOXY 25,11:PRINT "(6O2) 881-O539"
- 270 GOTOXY 25,9:PRINT "COPYRIGHT 1986"
- 280 GOTOXY 26,13:PRINT "PUBLIC DOMAIN"
- 290 GOTOXY 25,14:PRINT "DISTRIBUTE FREE"
- 300 FOR T=1 TO 8000
- 310 NEXT T
- 320 CLEARW 2
- 330 DIM NAME$ (25),ADDRESS$ (25),STATE$ (25),ZIP$ (8),CITY$ (25)
- 340 GOTOXY 0,0:PRINT "HOW MANY LABELS WOULD YOU LIKE";
- 350 INPUT A
- 360 PRINT "NAME";:INPUT NAME$
- 370 PRINT "ADDRESS ";:INPUT ADDRESS$
- 380 PRINT "CITY ";:INPUT CITY$
- 390 PRINT "STATE ";:INPUT STATE$
- 400 PRINT "ZIP ";:INPUT ZIP$
- 410 LPRINT
- 420 LPRINT NAME$
- 430 LPRINT ADDRESS$
- 440 LPRINT CITY$ ;", ";
- 450 LPRINT STATE$
- 460 LPRINT " ";ZIP$
- 470 LPRINT
- 480 CLEARW 2:GOTOXY 0,0:PRINT "IS THE LABEL POSITIONED PROPERLY Y/N ";
- 490 INPUT ANSWER$
- 500 IF ANSWER$ = "N" THEN GOTO 410
- 510 FOR G = 1 TO A
- 520 LPRINT
- 530 LPRINT NAME$
- 540 LPRINT ADDRESS$
- 550 LPRINT CITY$;", ";STATE$
- 560 LPRINT " ";ZIP$
- 570 LPRINT
- 580 NEXT G
- 590 ERASE NAME$,ADDRESS$,CITY$,STATE$,ZIP$
- 600 PRINT "AGAIN Y/N ";:INPUT BNS$
- 610 IF BNS$="Y" THEN GOTO 320
- 620 END
- əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə